﻿Imports System.Data.SqlClient

Public Class BaoCaoDAO

    Shared Function layPhieuBanHang(maPhieu As String) As DataTable
        Dim val As New List(Of SqlParameter)
        Dim para As New SqlParameter("MaPhieu", SqlDbType.VarChar, 13)
        para.Value = maPhieu
        para.Direction = ParameterDirection.Input
        val.Add(para)
        Return CKetNoi.ThucThiStoreCoThamSo("usp_InDonHangBan", val)
    End Function

End Class
